home *** CD-ROM | disk | FTP | other *** search
/ Zoom 1 / Zoom (1995)(Active Software, Ground Zero).iso / education / ed042a.dms / ed042a.adf / autoexec.AMOS / autoexec.amosSourceCode
AMOS Source Code  |  1995-02-07  |  9KB  |  453 lines
  1. Rem THIS IS THE MAIN MENU
  2. Set Buffer 25
  3. For E=1 To 15
  4. Erase E
  5. Next E
  6. M=1 : S=1 : N=0
  7. Screen Open 0,640,256,16,Hires
  8. Limit Mouse 129,50 To 448,296
  9. Cls : Curs Off 
  10. Cls : Locate 0,13 : Centre "IF YOU HAVE 1 MEG OR LESS - PRESS 'N' -YOU CANNOT HAVE SOUND"
  11. Locate 0,18 : Centre "PRESS MOUSE BUTTON AFTER 'N' OR TO CONTINUE"
  12. Do 
  13. V=Mouse Click
  14. If V<>0 Then Goto 2212
  15. If Key State(54)=True Then N=1
  16. Loop 
  17. 2212
  18. Cls : Curs Off 
  19. Cls : Locate 0,15 : Centre "PLEASE PUT 'DISK 2' IN ANY DRIVE - PRESS MOUSE BUTTON"
  20. Do 
  21. V=Mouse Click
  22. If V<>0 Then Goto 221
  23. Loop 
  24. 221
  25. Load "TECH2:title.abk",15
  26. If N=0 Then Load "TECH2:mod1.abk"
  27. If N=0 Then Load "TECH2:samples.abk"
  28. Load "TECH2:page1.abk",1
  29. Load "TECH2:page2.abk",2
  30. Load "TECH2:page3.abk",4
  31. Load "TECH2:page4.abk",6
  32. Load "TECH2:page5.abk",7
  33. Load "TECH2:page6.abk",8
  34. Load "TECH2:page7.abk",9
  35. Load "TECH2:page8.abk",10
  36. Load "TECH2:page9.abk",11
  37. Load "TECH2:pic.abk",12
  38. Screen Open 0,640,256,16,Hires
  39. 23
  40. Screen Open 1,640,256,16,Hires
  41. Screen Open 2,640,256,16,Hires
  42. Screen Open 3,640,256,16,Hires
  43. Screen Open 4,640,256,16,Hires
  44. Dim M$(100)
  45. Global M$
  46. 98
  47. If N=1 Then S=0
  48. If N=1 Then M=0
  49. 99
  50. Unpack 12 To 4
  51. Show On 
  52. Auto View Off 
  53. Screen Open 0,640,256,16,Hires : Paper 0 : Ink 9 : Cls 
  54. Fade 15
  55. If S=1 Then Sam Play 1
  56. Unpack 15 To 0
  57. View 
  58. Screen To Front 0
  59. If M=1 Then Music 1
  60. If M=0 Then Music Off 
  61. Paper 15 : Print "'I' for INTRO"
  62. If M=1 Then Locate 73,21 : Paper 15 : Print "ON "
  63. If S=1 Then Locate 73,23 : Paper 15 : Print "ON "
  64. If M=0 Then Locate 73,21 : Paper 15 : Print "OFF"
  65. If S=0 Then Locate 73,23 : Paper 15 : Print "OFF"
  66. '
  67. Reserve Zone(25)
  68. Set Zone 1,16,12 To 93,43
  69. Set Zone 2,16,57 To 93,89
  70. Set Zone 3,16,108 To 93,139
  71. Set Zone 4,16,163 To 93,197
  72. Set Zone 5,16,213 To 93,245
  73. Set Zone 6,528,16 To 611,47
  74. Set Zone 7,528,63 To 611,94
  75. Set Zone 8,528,112 To 611,142
  76. Set Zone 9,528,164 To 606,179
  77. Set Zone 10,528,179 To 607,195
  78. Do 
  79.    K=Mouse Zone
  80.    T=Mouse Key
  81.    If K=1 and T=1 Then Goto 1011
  82.    If K=2 and T=1 Then Goto 1022
  83.    If K=3 and T=1 Then Goto 101
  84.    If K=4 and T=1 Then Goto 103
  85.    If K=5 and T=1 Then Goto 104
  86.    If K=6 and T=1 Then Goto 105
  87.    If K=7 and T=1 Then Goto 106
  88.    If K=8 and T=1 Then Goto 107
  89.    If K=9 and T=1 Then Goto 1077
  90.    If K=10 and T=1 Then Goto 1088
  91. If Key State(23)=True Then Goto 11
  92. If Key State(69)=True Then Stop 
  93. Loop 
  94. Wait Key 
  95. '
  96. 11
  97. M$="TECH2:INTRO.Txt" : Paper 14 : Gosub TS : Goto 99
  98. '
  99. 1077
  100. If M=1 Then Goto 1078
  101. If M=0 Then Goto 1079
  102. 1078
  103. M=0 : Goto 98
  104. 1079
  105. M=1 : Goto 98
  106. '
  107. 1088
  108. If S=1 Then Goto 1068
  109. If S=0 Then Goto 1069
  110. 1068
  111. Locate 73,23 : Paper 15 : Print "OFF"
  112. S=0 : Goto 99
  113. 1069
  114. Locate 73,23 : Paper 15 : Print "ON "
  115. S=1 : Goto 99
  116. '
  117. 1011
  118. If S=1 Then Sam Play 1
  119. Screen To Front 4
  120. Unpack 1 To 3
  121. View 
  122. Screen To Front 3
  123. Reserve Zone(25)
  124. Set Zone 11,22,225 To 76,245
  125. Set Zone 12,129,225 To 184,245
  126. Set Zone 13,236,225 To 288,245
  127. Set Zone 14,345,225 To 398,245
  128. Set Zone 15,452,225 To 504,245
  129. Do 
  130.    K=Mouse Zone
  131.    T=Mouse Key
  132.    If K=11 and T=1 Then Goto 99
  133.    If K=12 and T=1 Then Goto 1022
  134.    If K=13 and T=1 Then Goto 20
  135.    If K=14 and T=1 Then Goto 212
  136.    If K=15 and T=1 Then Goto 22
  137. Loop 
  138. '
  139. 20
  140. If S=1 Then Sam Play 1
  141. M$="TECH2:copy.Txt" : Paper 14 : Gosub TS : Goto 1011
  142. '
  143. 212
  144. If S=1 Then Sam Play 2
  145. Load Iff "TECH2:printcopy",2
  146. View 
  147. Screen To Front 2
  148. Do 
  149. V=Mouse Click
  150. If V<>0 Then Goto 1011
  151. Loop 
  152. '
  153. 22
  154. If S=1 Then Sam Play 2
  155. Load Iff "TECH2:colourtemp"
  156. View 
  157. Screen To Front 1
  158. Do 
  159. V=Mouse Click
  160. If V<>0 Then Goto 1011
  161. Loop 
  162. '
  163. 1022
  164. Screen To Front 4
  165. If S=1 Then Sam Play 1
  166. Unpack 2 To 3
  167. View 
  168. Screen To Front 3
  169. Reserve Zone(25)
  170. Set Zone 11,22,225 To 76,245
  171. Set Zone 12,129,225 To 184,245
  172. Set Zone 13,236,225 To 288,245
  173. Set Zone 14,345,225 To 398,245
  174. Set Zone 15,452,225 To 504,245
  175. Do 
  176.    K=Mouse Zone
  177.    T=Mouse Key
  178.    If K=11 and T=1 Then Goto 99
  179.    If K=12 and T=1 Then Goto 101
  180.    If K=13 and T=1 Then Goto 1011
  181.    If K=14 and T=1 Then Goto 26
  182.    If K=15 and T=1 Then Goto 27
  183. Loop 
  184. '
  185. 26
  186. If S=1 Then Sam Play 1
  187. M$="TECH2:slide.Txt" : Paper 14 : Gosub TS : Goto 1022
  188. '
  189. 27
  190. If S=1 Then Sam Play 2
  191. Load Iff "TECH2:slidecopy",2
  192. View 
  193. Screen To Front 2
  194. Do 
  195. V=Mouse Click
  196. If V<>0 Then Goto 1022
  197. Loop 
  198. '
  199. 101
  200. Screen To Front 4
  201. If S=1 Then Sam Play 1
  202. Unpack 4 To 3
  203. View 
  204. Screen To Front 3
  205. Reserve Zone(25)
  206. Set Zone 11,22,225 To 76,245
  207. Set Zone 12,129,225 To 184,245
  208. Set Zone 13,236,225 To 288,245
  209. Set Zone 14,345,225 To 398,245
  210. Do 
  211.    K=Mouse Zone
  212.    T=Mouse Key
  213.    If K=11 and T=1 Then Goto 102
  214.    If K=12 and T=1 Then Goto 103
  215.    If K=13 and T=1 Then Goto 1022
  216.    If K=14 and T=1 Then Goto 28
  217. Loop 
  218. '
  219. 28
  220. If S=1 Then Sam Play 1
  221. M$="TECH2:DOF.Txt" : Paper 14 : Gosub TS : Goto 101
  222. '
  223. 102
  224. Screen To Front 4
  225. If S=1 Then Sam Play 1
  226. Unpack 6 To 3
  227. View 
  228. Screen To Front 3
  229. Reserve Zone(25)
  230. Set Zone 11,22,225 To 76,245
  231. Set Zone 12,129,225 To 184,245
  232. Set Zone 13,236,225 To 288,245
  233. Set Zone 14,345,225 To 398,245
  234. Set Zone 15,452,225 To 504,245
  235. Do 
  236.    K=Mouse Zone
  237.    T=Mouse Key
  238.    If K=11 and T=1 Then Goto 99
  239.    If K=12 and T=1 Then Goto 103
  240.    If K=13 and T=1 Then Goto 101
  241.    If K=14 and T=1 Then Goto 30
  242.    If K=15 and T=1 Then Goto 31
  243. Loop 
  244. '
  245. 30
  246. If S=1 Then Sam Play 1
  247. M$="TECH2:pan.Txt" : Paper 14 : Gosub TS : Goto 102
  248. '
  249. 31
  250. If S=1 Then Sam Play 2
  251. Load Iff "TECH2:pangraph",2
  252. View 
  253. Screen To Front 2
  254. Do 
  255. V=Mouse Click
  256. If V<>0 Then Goto 102
  257. Loop 
  258. '
  259. 103
  260. Screen To Front 4
  261. If S=1 Then Sam Play 1
  262. Unpack 7 To 3
  263. View 
  264. Screen To Front 3
  265. Reserve Zone(25)
  266. Set Zone 11,22,225 To 76,245
  267. Set Zone 12,129,225 To 184,245
  268. Set Zone 13,236,225 To 288,245
  269. Set Zone 14,345,225 To 398,245
  270. Set Zone 15,452,225 To 504,245
  271. Do 
  272.    K=Mouse Zone
  273.    T=Mouse Key
  274.    If K=11 and T=1 Then Goto 99
  275.    If K=12 and T=1 Then Goto 104
  276.    If K=13 and T=1 Then Goto 101
  277.    If K=14 and T=1 Then Goto 32
  278.    If K=15 and T=1 Then Goto 33
  279. Loop 
  280. '
  281. 32
  282. If S=1 Then Sam Play 1
  283. M$="TECH2:ME.Txt" : Paper 14 : Gosub TS : Goto 1022
  284. '
  285. 33
  286. If S=1 Then Sam Play 2
  287. Load Iff "TECH2:mult2",2
  288. View 
  289. Screen To Front 2
  290. Do 
  291. V=Mouse Click
  292. If V<>0 Then Goto 1022
  293. Loop 
  294. '
  295. 104
  296. Screen To Front 4
  297. If S=1 Then Sam Play 1
  298. Unpack 8 To 3
  299. View 
  300. Screen To Front 3
  301. Reserve Zone(25)
  302. Set Zone 11,22,225 To 76,245
  303. Set Zone 12,129,225 To 184,245
  304. Set Zone 13,236,225 To 288,245
  305. Set Zone 14,345,225 To 398,245
  306. Set Zone 15,452,225 To 504,245
  307. Do 
  308.    K=Mouse Zone
  309.    T=Mouse Key
  310.    If K=11 and T=1 Then Goto 99
  311.    If K=12 and T=1 Then Goto 105
  312.    If K=13 and T=1 Then Goto 103
  313.    If K=14 and T=1 Then Goto 35
  314. Loop 
  315. '
  316. 35
  317. If S=1 Then Sam Play 1
  318. M$="TECH2:slow.Txt" : Paper 14 : Gosub TS : Goto 104
  319. '
  320. 105
  321. Screen To Front 4
  322. If S=1 Then Sam Play 1
  323. Unpack 9 To 3
  324. View 
  325. Screen To Front 3
  326. Reserve Zone(25)
  327. Set Zone 11,22,225 To 76,245
  328. Set Zone 12,129,225 To 184,245
  329. Set Zone 13,236,225 To 288,245
  330. Set Zone 14,345,225 To 398,245
  331. Set Zone 15,452,225 To 504,245
  332. Do 
  333.    K=Mouse Zone
  334.    T=Mouse Key
  335.    If K=11 and T=1 Then Goto 99
  336.    If K=12 and T=1 Then Goto 106
  337.    If K=13 and T=1 Then Goto 104
  338.    If K=14 and T=1 Then Goto 36
  339. Loop 
  340. '
  341. 36
  342. If S=1 Then Sam Play 1
  343. M$="TECH2:long.Txt" : Paper 14 : Gosub TS : Goto 105
  344. '
  345. 106
  346. Screen To Front 4
  347. If S=1 Then Sam Play 1
  348. Unpack 10 To 3
  349. View 
  350. Screen To Front 3
  351. Reserve Zone(25)
  352. Set Zone 11,22,225 To 76,245
  353. Set Zone 12,129,225 To 184,245
  354. Set Zone 13,236,225 To 288,245
  355. Set Zone 14,345,225 To 398,245
  356. Set Zone 15,452,225 To 504,245
  357. Do 
  358.    K=Mouse Zone
  359.    T=Mouse Key
  360.    If K=11 and T=1 Then Goto 99
  361.    If K=12 and T=1 Then Goto 107
  362.    If K=13 and T=1 Then Goto 105
  363.    If K=14 and T=1 Then Goto 38
  364. Loop 
  365. '
  366. 38
  367. If S=1 Then Sam Play 1
  368. M$="TECH2:TV.Txt" : Paper 14 : Gosub TS : Goto 106
  369. '
  370. 107
  371. Screen To Front 4
  372. If S=1 Then Sam Play 1
  373. Unpack 11 To 3
  374. View 
  375. Screen To Front 3
  376. Reserve Zone(25)
  377. Set Zone 11,22,225 To 76,245
  378. Set Zone 12,129,225 To 184,245
  379. Set Zone 13,236,225 To 288,245
  380. Set Zone 14,345,225 To 398,245
  381. Do 
  382.    K=Mouse Zone
  383.    T=Mouse Key
  384.    If K=11 and T=1 Then Goto 99
  385.    If K=12 and T=1 Then Goto 106
  386.    If K=13 and T=1 Then Goto 39
  387. Loop 
  388. '
  389. 39
  390. If S=1 Then Sam Play 1
  391. M$="TECH2:quality.Txt" : Paper 14 : Gosub TS : Goto 107
  392. '
  393. '
  394. '
  395. TS:
  396.    Global M$
  397.    Curs Off : Cls 
  398.    Open In 1,M$
  399.    887
  400.    X=2
  401.    Do 
  402.       If Eof(1) Then Goto 882
  403.       Set Input 10,-1
  404.       Line Input #1,N$
  405.       Locate 4,X : Print N$
  406.       X=X+1
  407.       If X=27 Then Goto 883
  408.       If Key State(50) Then Gosub PTS
  409.    Loop 
  410.    '
  411.    '
  412.    883
  413.    Locate 1,29 : Centre "**  LEFT MOUSE KEY FOR MORE TEXT OR RETURN **"
  414.    Do 
  415.       T=Mouse Key
  416.       If T<>0 Then Cls : Goto 887
  417.    Loop 
  418.    Wait Key 
  419.    882
  420.    Do 
  421.       Locate 1,29 : Centre "**  LEFT MOUSE KEY FOR MORE TEXT OR RETURN - 'X' TO PRINT **"
  422.       T=Mouse Key
  423.       If T<>0 Then Goto 21
  424.       If Key State(50) Then Gosub PTS
  425.    Loop 
  426.    21
  427.    Close 1
  428. Return 
  429. '
  430. PTS:
  431.    Cls : Locate 0,15 : Paper 6 : Centre "** PRINTER ON, PAPER IN, PRESS MOUSE BUTTON **"
  432.    Do 
  433.       T=Mouse Key
  434.       If T<>0 Then Goto 2129
  435.    Loop 
  436.    2129
  437.    Close 1
  438.    Curs Off : Cls 
  439.    Open In 1,M$
  440.    Do 
  441.       If Eof(1) Then Goto 1882
  442.       Set Input 10,-1
  443.       Line Input #1,M$
  444.       Locate 4,X : Lprint M$
  445.    Loop 
  446.    1882
  447.    Do 
  448.       Locate 1,15 : Paper 4 : Centre "**  LEFT MOUSE KEY TO EXIT **"
  449.       T=Mouse Key
  450.       If T<>0 Then Goto 2121
  451.    Loop 
  452.    2121
  453. Return